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DIRECTORY 

AltoDefs: FROM "altodefs", 
BcdDefs: FROM "bcddefs", 
SegmentDefs: FROM "segmentdef s" , 
StringDefs: FROM "stringdef s" , 
SymbolTableDefs: FROM "symbol tabledefs", 
SymDefs: FROM "symdefs", 
TreeDefs: FROM "treedefs"; 

ListerDefs: DEFINITIONS ■ 
BEGIN 

BYTE: TYPE - Al toDef s .BYTE ; 

FileSegmentHandle: TYPE ■ SegmentDefs. FileSegmentHandle; 

IncorrectVersion: SIGNAL; 

Load: PROCEDURE [name: STRING] RETURNS [code, symbols: FileSegmentHandle]; 

NoCode, NoSymbols, NoFGT, Mul tipleModules : SIGNAL; 

WriteFilelD: PROCEDURE; 

WriteVersions: PROCEDURE [version, creator: POINTER TO BcdDefs. VersionStamp]; 

SetRoutineSymbols: PROCEDURE [s: SymbolTableDefs .SymbolTableBase] ; 

PrintHti: PROCEDURE [hti: SymDefs .HTIndex] ; 

PrintSei: PROCEDURE [sei: SymDefs . ISEIndex]; 

Indent: PROCEDURE [n: CARDINAL]; 

PutSubString: PROCEDURE [ss: StringDefs .Substring] ; 

PrintMachine: PROCEDURE [stamp: BcdDefs .VersionStamp] ; 

PutNodeName: PROCEDURE[n: TreeDefs . NodeName] ; 

-- known PROGRAM modules 
ListBcd: PROGRAM; 
ListCode: PROGRAM; 
ListSymbols: PROGRAM; 
Listlnterface: PROGRAM; 
ListFrame: PROGRAM; 
ListerRoutines: PROGRAM; 

END. of 1 istcode 


